home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 2
/
Gold Medal Software Volume 2 (Gold Medal) (1994).iso
/
prog
/
adlip.arj
/
CSNDMS.ASM
< prev
next >
Wrap
Assembly Source File
|
1988-04-25
|
2KB
|
97 lines
; CSOUND.ASM
;
; interface langage C du sound-driver resident.
;
; 87/03/18, Marc Savary, Ad Lib.
; 88/03/1, Benoit Robitaille, Ad Lib.
;
;
INCLUDE VERSION.INC
INCLUDE CMICRO.MAC ; for Microsoft C 5.0
INCLUDE DEFS.MAC ; equates & sound-driver version proc.
PSEG CSOUND
INCLUDE VERSION.MAC ; signature du sound-driver ...
;
; unsigned GetSoundDrvVersion()
; retourne le numero de version du sound-driver
; charge en memoire, ou 0 si non-charge.
; utilise la MACRO ..
;
DrvVersionProc _GetSoundDrvVersion
; int SoundCall( functionNumber, arg_list)
; int functionNumer;
; any... arg_list
;
; genere l'interruption au sound driver
; avec l'address des arguments dans ES:BX,
; et le numero de function dans SI
aaframe STRUC
dw ? ; old BP
db CPSIZE DUP (?) ; return addr
aaargs dw ? ; function number
others dw ? ; from this point... all other param.
aaframe ENDS
BEGIN _SoundCall
penter 0 ; Normal C calling format ( 0= Local variables)
push es
mov si, [bp].aaargs ; get function number
lea bx, [bp].others ; get pointers to others args...
push ss
pop es
int sound_driver_int ; call sound-driver ...
pop es
pleave 0 ; Restore Stack pointers ( sp, bp)
_SoundCall ENDP
; ===================================================================
;
; definition des fonction qui remplacent les anciens appels
; au sound-driver en C.
;
fInitSon equ 0
fFinSon equ 1
fEcrTempsDebut equ 2
fActiveSon equ 3
fLisSonActif equ 4
fChut equ 5
fEcrMode equ 6
fLisMode equ 7
fEcrVolume equ 8
fEcrTempo equ 9
fEcrDiapason equ 10
fLisDiapason equ 11
fEcrFileAct equ 12
fLisFileAct equ 13
fJouePoly equ 14
fJoueNote equ 15
fEcrTimbre equ 16
fEcrPitch equ 17
fEcrTickTemps equ 18
fSoundOn equ 19
fSoundOff equ 20
fSetVParam equ 21
ENDPS CSOUND
end